C:\to_server\website\mrdcl-learning.com\mrdcl_files\DAT-107\run.stp
start data,
serial number in columns 1-4,
card characters 100,
dc $welcome=$8-20,
xt='Greeting',
dc $opinion=$21-50,
xt='Opinion',
dc $city=$51-53,
xt='Departure airport',
dc $flight=$71-76,
xt='Flight code',
f=atf,
if $71-72/'BA',di $iflight_code=$73-77,
f=natf,
ds $airline=$flight(1:2)/'BA','CX',
x='British Airways;
Cathay Pacific',
xt='Airline',
list $iobs.$welcome,
list $iobs.$opinion,
list $iobs.$city,
list $iobs.$flight,
list $iobs.$iflight_code,
list $iobs.&$airline,
finish data,
start tables,
t#1=$airline *,
t#2=$flight(100) *,
finish tables,
